type TTest = class(TObject, Integer